home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / Moof / Goodies / MPW Goodies / MPW Goodies⁄DTS / FLookup < prev    next >
Text File  |  1989-04-13  |  182b  |  12 lines
  1. # Lookup dir:
  2. # Fast read-only, directory-only version
  3.  
  4. Set olddir "`Directory`"
  5. Set Exit 0
  6. Directory "{1}"
  7. Open -r
  8. Set xstatus {Status}
  9. Set Exit 1
  10. Directory {olddir}
  11. Exit {xstatus}
  12.